Simple List Environment
\beginlist{TS*s;IF!=,*x,1;rLM.5i;rRM.5i
   ;EL;LM.5;RM.5;FI;PS.5*f;C91}
\it@m{SB1.2*fp;BX0,*vi,*li,*bi;TS*j;R+;C9\.\HM6;XX;SJ*S}
\m@rk{SW#1;HM-*i;HM-6\#1\HM6}
\endlist{IF!=,*x,1;rLM-.5i;rRM-.5i
   ;EL;LM0;RM0;FI;VS-*f;PS*S}

Quote Material
\qu@te{VS6;IF!=,*x,1;rLM.5i;rRM.5i;EL;LM.5;RM.5;FI
   \#1\VS6;IF!=,*x,1;rLM-.5i;rRM-.5i;EL;LM0;RM0;FI;VS-*fp}

Start New Section
\s@ction{TS*9;VS1.5*f;S9+,*F,2;FS*9;BO
   \#1\BO;S9-,*F,2;FS*9;VS-.75*f;S9*S}

Math commands
\fr@ct{TS*9;TS*8;TS*7;TS*6;SW#2;S9*i;S8*i
   ;SW#1;IF>,*i,*9;S9*i;FI;S7*i
   ;HR*9,-.4*F;HM-*9
   ;VR.6*F;S6-,.5*9,.5*8;HM*6\#2\HM-*6;HM-*8;VR-.6*F
   ;VR-.7*F;S6-,.5*9,.5*7;HM*6\#1\HM*6;HM3;VR.7*F
   ;S6*S;S7*S;S8*S;S9*S}
\ndfract{TS*9,TS*8;S9*h;VR-.7*F\#1\VR.7*F;S8-,*h,*9;S9*h
   ;HR-*8i,-.4*F;VR.6*F\#2\VR-.6*F
   ;IF<,*h,*9;S9-,*9,*h;HM*9i;FI;HM3;S8*S;S9*S}
\dnfract{TS*9,TS*8;S9*h;VR.6*F\#1\VR-.6*F;S8-,*h,*9;S9*h
   ;HR-*8i,-.4*F;VR-.7*F\#2\VR.7*F
   ;IF<,*h,*9;S9-,*9,*h;HM*9i;FI;HM3;S8*S;S9*S}
\@int{TS*9;TS*8;TS*7;TS*N;S9*F
   ;FNSymbol;FS1.5*F;VR.25*F\Ú\VR-.25*F;FS*9;FN*S
   ;FS.8*F;S8*h;VR.8*F\#1\S7-,*h,*8;HM-*7i
   ;VR-.8*F;VR-*F\#2\S8-,*h,*8;IF<,*8,*7;S7-,*7,*8
   ;HM*7i;FI;VR*F;FS*9;S7*S;S8*S;S9*S}
\@sum{TS*9;TS*8;TS*7;TS*N;S9*F
   ;FNSymbol;FS2*F;VR.2*F\S\VR-.2*F;FS*9;FN*S
   ;FS.8*F;S8*h;VR.6*F\#1\S7-,*h,*8;HM-*7i
   ;VR-.6*F;VR-.7*F\#2\S8-,*h,*8;IF<,*8,*7;S7-,*7,*8
   ;HM*7i;FI;VR.7*F;FS*9;S7*S;S8*S;S9*S}
\closeb{VR-*7;IF>,*h,*8;S8*h;FI
   ;TS*6;S6-,*8,*h;HM*6i;S6*S;bigb{#1}{#2}}
\bigb{TS*F;S9*,#1,*f;FS*9;VR.25*F\#2\VR-.25*F
   ;FS*S;S9*h;S8*h;S70}
\newrow{VR-*7;IF>,*h,*8;S8*h;FI;S7*,#1,*f;VR*7
   ;TS*6;S6-,*h,*9;HM-*6i;S6*S}
\ucv@c{TS*9;TS*8;S9*h\#1\S8-,*h,*9;HM-*8i
   ;TS*N;TS*F;FNSymbol;VR-.8*F;FS.8*F\Æ\FS*S;VR.8*F;FN*S
   ;S8*S;S9*S}
\v@c{TS*9;TS*8;S9*h\#1\S8-,*h,*9;HM-*8i
   ;TS*N;TS*F;FNSymbol;VR-.5*F;FS.8*F\Æ\FS*S;VR.5*F;FN*S
   ;S8*S;S9*S}
\displ@yno{TS*j;VS6;PU;SJ0;HM1i\#1\S9-,*r,*h;HM*9i
   ;SW(999);HM-*i\(\C#2\)
\SJ*S;VS-*f;VS6}
\displ@y{TS*j;VS6;C+\#1
\C-;SJ*S;VS-*f;VS6}

Sub/super scripting
\s@bs@p{TS*9;TS*8;TS*7;TS*F
   ;FS.8*F;S9*h;S7t,.4*F;VR*7\#1\S8-,*h,*9;HM-*8i
   ;VR-*F\#2\S9-,*h,*9;IF<,*9,*8;S9-,*8,*9
   ;HM*9i;FI;S7-,*F,*7;VR*7;FS*S;S7*S;S8*S;S9*S}
\s@b{TS*F;FS.8*F;VR.4*F\#1\VR-.4*F;FS*S}
\s@p{TS*F;FS.8*F;VR-.6*F\#1\VR.6*F;FS*S}

Table and form macros
\begintable{TS*s;TS*l;TS*9;PS0;CT;S9h,#1;LM*9p;S90;PU}
\colwidths{TS*8;S8h,#1;S9+,*9,*8;rST*9p;S8*S}
\plainline{PO;tabSL3;PU}
\topline{PO;tabSL1;TS*u;LH2;VL;repeat#1{TC;VL}\
\LH*S;PU}
\midline{PO;TS*u;LH1;VL;repeat#1{TC;VL}\
\tabSL1;LH2;VL;repeat#1{TC;VL;}\
\LH*S;PU}
\bottomline{PO;TS*u;LH1;VL;repeat#1{TC;VL}\
\LH*S;tabSL1}
\tabSL{TS*8;S8h,*li;S8+,*8,*9;SL#1,*h,*8p;S8*S}
\ccellnb{PO;TS*8;SW#1;S8-,*n,*i;S8/,*8,2;HM*8\#1\TC;S8*S}
\lcellnb{PO\#1\TC}
\rcellnb{PO;TC;SW#1;HM-*i;HM-1\#1\HM1}
\ccell{PO;TS*8;VL;SW#1;S8-,*n,*i;S8/,*8,2;HM*8\#1\TC;S8*S}
\lcell{PO;VL\#1\TC}
\rcell{PO;VL;TC;SW#1;HM-*i;HM-1\#1\HM1}
\endlinenb{NO\
\PU}
\endline{VL\
\PU}
\endtable{CT;S9*S;LM*S;PS*S;IF=,*x,1;LM0;FI;PO}
\repeat1{#1}
\repeat2{#1;#1}
\repeat3{#1;#1;#1}
\repeat4{#1;#1;#1;#1}
\repeat5{#1;#1;#1;#1;#1}
\repeat6{#1;#1;#1;#1;#1;#1}
\repeat7{#1;#1;#1;#1;#1;#1;#1}
\repeat8{#1;#1;#1;#1;#1;#1;#1;#1}
\repeat9{#1;#1;#1;#1;#1;#1;#1;#1;#1}

Simple Plotting Macros
\beginplot{pushreg0,1,2,3,4,5,6,7;SW#1;IF=,*i,0
   ;S3v,#4;SB#4p;S0h,*hi;S1v,*vi
   ;S2h,#3;S2+,*0,*2
   ;S3+,*1,*3;EL;S0h,#1;S1v,#2;S2h,#3;S3v,#4;FI
   ;S4#5;S5#6;S6#7;S7#8}
\frameplot{sr*0,*1,*2,*3;fr;in-1,-1;fr}
\xtick{calcpt#1,*6;mt*S,*S;S9*S;S8*S
   ;TS*8;S8-,*3,*1;S8*,*8,.04;li0,-*8
   ;calcpt#1,*7;mt*S,*S;S9*S;S8*S;li0,*8;S8*S}
\xgrid{calcpt#1,*6;mt*S,*S;S9*S;S8*S
   ;calcpt#1,*7;lt*S,*S;S9*S;S8*S}
\ytick{calcpt*4,#1;mt*S,*S;S9*S;S8*S
   ;TS*8;S8-,*2,*0;S8*,*8,.04;li*8,0
   ;calcpt*5,#1;mt*S,*S;S9*S;S8*S;li-*8,0;S8*S}
\ygrid{calcpt*4,#1;mt*S,*S;S9*S;S8*S
   ;calcpt*5,#1;lt*S,*S;S9*S;S8*S}
\xlabel{calcpt#1,*6;SW#2;S8/,*i,2;S8+,*S,-*8;SV*Sp
   ;sr5000,2*f;or-*li,0;BX;HM*8\#2\XX;S9*S;S8*S}
\ylabel{calcpt*4,#1;SW#2;S8-,*S,*i;S8-,*8,3;S9-,*S,.5*f
   ;SV*9p;sr5000,2*f;or-*li,0;BX;HM*8\#2\XX;S9*S;S8*S}
\yrlabel{calcpt*5,#1;S8+,*S,3;S9-,*S,.5*f
   ;SV*9p;sr5000,2*f;or-*li,0;BX;HM*8\#2\XX;S9*S;S8*S}
\pannote{calcpt#1,#2;S8*S;SV*Sp;sr5000,2*f;or-*li,0
   ;BX;HM*8\#3\XX;S8*S;S9*S}
\xtitle{TS*8;TS*9;S8+,.5*0,.5*2;SW#1;S8-,*8,.5*i
   ;S9+,*3,*f;SV*9p;sr5000,2*f;or-*li,0;BX;HM*8\#1\XX
   ;S8*S;S9*S}
\ptitle{TS*8;TS*9;S8+,.5*0,.5*2;SW#1;S8-,*8,.5*i
   ;S9-,*1,1.1*f;SV*9p;sr5000,2*f;or-*li,0;BX;HM*8\#1\XX
   ;S8*S;S9*S}
\moveto{calcpt#1,#2;mt*S,*S;S9*S;S8*S}
\plotto{calcpt#1,#2;lt*S,*S;S9*S;S8*S}
\plotbar{calcpt#1,#2;S8+,*S,1;S9*S
   ;IF>=,#2,0;TS*8;TS*9;EL;TS*9;TS*8;FI
   ;S8-,#1,*4;S8-,*8,1;S9-,*5,*4
   ;S8/,*8,*9;S9-,*2,*0;S8*,*8,*9;S8+,*0,*8;TS*8
   ;S8-,0,*6;S9-,*7,*6;S8/,*8,*9;S9-,*3,*1
   ;S8*,*8,*9;S8-,*3,*8;IF>,*8,*3;S8*3;FI
   ;IF<,*8,*1;S8*1;FI;IF>=,#2,0;sr*S,*S,*S,*8
   ;EL;sr*S,*8,*S,*S;or0,-1;FI;S9*S;S8*S
   ;TS*P;pp#3;pr;pp*S;fr}
\calcpt{TS*8;TS*9;S8-,#2,*6;S9-,*7,*6;S8/,*8,*9;S9-,*3,*1
   ;S8*,*8,*9;S8-,*3,*8;TS*8;S8-,#1,*4;S9-,*5,*4
   ;S8/,*8,*9;S9-,*2,*0;S8*,*8,*9;S8+,*0,*8;TS*8}
\endplot{SV*3p;popreg7,6,5,4,3,2,1,0}

Colors
\QDblack{PC}
\QDyellow{PC64512,62333,1327}
\QDmagenta{PC62167,2134,34028}
\QDred{PC56680,2242,1698}
\QDcyan{PC577,43860,60159}
\QDgreen{PC0,32768,4528}
\QDblue{PC0,0,54272}
\QDwhite{PC65535,65535,65535}
\QDgray{TS*1;S1/,#1,100;IF>,*1,1;S11;FI;IF<,*1,0
        ;S10;FI;S1-,1,*1;S1*,*1,65535;PC*1,*1,*1;S1*S}

In-Line Boxes
\StrBox{SW#2;LineBox{*i}{#1}{#2}}
\FStrBox{TS*7;SW#2;S7+,*i,4;FLineBox{*7}{#1}{#2};S7*S}
\CtrPict{TS*8;PH;S8+,.5*i,2;#1PictBox{*8};S8*S}
\TopPict{#1PictBox{0}}
\BtmPict{TS*8;PH;S8+,*i,4;#1PictBox{*8};S8*S}
\PictBox{PW;LineBox{*i}{#1}{\CB\}}
\FPictBox{TS*7;PW;S7+,*i,4;FLineBox{*7}{#1}{\CB\};S7*S}
\LineBox{TS*1;TS*2;TS*3;TS*4;TS*5;TS*6;S6v,#2;VR-*6
     ;S1h,#1;S2-,*h,*l;S2h,*2i;S3+,*1,*2;S4*v\
\GetBoxSize{*1}{5}{#3};S5+,*4,*5;sr*2,*4i,*3,*5i
     ;or*li,0;BX\#3\XX;SV*4;HM*3;S5-,*5,*4;S5v,*5i
     ;S5-,*5,*f;VR*5;VR-*5;VR*6
     ;S6*S;S5*S;S4*S;S3*S;S2*S;S1*S}
\FLineBox{TS*1;TS*2;TS*3;TS*4;TS*5;TS*6;S6v,#2;VR-*6
     ;S1h,#1;S2-,*h,*l;S2h,*2i;S3+,*1,*2;S4*v\
\S1-,*1,4;GetBoxSize{*1}{5}{#3};S5+,*4,*5;sr*2,*4i,*3,*5i
     ;or*li,0;fr;in2,0;BX\#3\XX;SV*4;HM*3;S5-,*5,*4;S5v,*5i
     ;S5-,*5,*f;VR*5;VR-*5;VR*6
     ;S6*7;S5*S;S4*S;S3*S;S2*S;S1*S}

Calculate text size
\KeepTogether{TS*1;GetSize1{#1};SB*1;S1*S\#1
\NO}
\GetBoxSize{TS*9;S9h,#1;S9/,*9,*H;S9-,*r,*9;TS*l;LM*9
     ;GetSize{#2}{#3};LM*S;S9*S}
\GetSize{BX*li,-1i,*ri,0i;S#1*v\#2
\S#1-,*v,*#1;XX}

Margin changing commands
\n@dge{TS*8;rLM#1;S8h,#1;rRM-*8;rTM#2;S8v,#2;rBM-*8;S8*S}
\rBX{rsr#1,#2,#3,#4;BX}
\rLX{rsr#1,#2,#3,#4;LX}
\rsr{sr#1,#2,#4,#4;or*li,*ti}
\rLM{TS*9;S9h,#1;hP2inch{9};S9+,*l,*9;LM*9;S9*S}
\rRM{TS*9;S9h,#1;hP2inch{9};S9+,*R,*9;RM*9;S9*S}
\rTM{TS*9;S9v,#1;vP2inch{9};S9+,*t,*9;TM*9;S9*S}
\rBM{TS*9;S9v,#1;vP2inch{9};S9+,*B,*9;BM*9;S9*S}
\rST{TS*9;S9h,#1;hP2inch{9};S9+,*l,*9;ST*9;S9*S}
\rSV{TS*9;S9v,#1;vP2inch{9};S9+,*t,*9;SV*9;S9*S}

Pixel conversions
\hP2inch{S#1/,*#1,*H}
\vP2inch{S#1/,*#1,*V}
\hP2cm{S#1/,2.54*#1,*H}
\vP2cm{S#1/,2.54*#1,*V}
\inch2hP{S#1*,*#1,*H;S#1t,*#1};
\inch2vP{S#1*,*#1,*V;S#1t,*#1};
\cm2hP{S#1*,*#1,*H;S#1/,*#1,2.54;S#1t,*#1};
\cm2vP{S#1*,*#1,*V;S#1/,*#1,2.54;S#1t,*#1};

Debug by printing 1 to 9 arguments
\arglist{NO\#1;\NO}
\numlist{TN#1\;\NO}

Justified tabbing
\cTC{TS*9;TC;SW#1;S9/,*i,2;HM-*9\#1\S9*S}
\rTC{TC;SW#1;HM-*i\#1\NO}

Left, Ctr, Right Justified text on a line
\lcrline{TS*j;SJ0;PU\#1
\PO;C+\#2
\PO;R+\#3
\SJ*S}

Stack
\pushreg{TS*#1}
\popreg{S#1*S}

Conditionals
\ifeven{TS*9;S9/,#1,2;S9t,*9;IF=,2*9,#1\#2\FI;S9*S}
\ifodd{TS*9;S9/,#1,2;S9t,*9;IF!=,2*9,#1\#2\FI;S9*S}
\ifempty{SW#1;IF=,*i,0\#2\FI}
\ifnotempty{SW#1;IF!=,*i,0\#2\FI}
\ifchar{TS*9;AS#1;S9*i;AS#3;IF#2,*9,*i\#4\FI;S9*S}

Pseudo PrintReport commands
\BS{SW#1;HM-*i}
\nbHM{TS*9;S9h,#1;TS*P;ppwhite;HR*9;pp*S;S9*S}
\setH{TS*9;TS*8;S9*,*h,*H;S9t,*9;S8h,#1;S9-,*8,*9
   ;HM*9;S8*S;S9*S}
\EM{SWM;HR*i,-.4*F}
\EN{TS*9;SWM;S9/,*i,2;HR*9,-.4*F;S9*S}
\frCB{VS0;TS*2;TS*3;S2+,2*o,2;S3+,2*d,2;PW
   ;S2+,*2,*i;PH;S3+,*3,*i;sr0,0,*2,*3
   ;SW#2;IF=,*i,0;SB*3p;FI;TS*4;TS*5;S4-1;AS#1
   ;IF=,*i,76;or;S41;FI;IF=,*i,108;or;S41;FI
   ;IF=,*i,82;S5*,*H,*r;S5-,*5,*2;or*5,*vi;S41;FI
   ;IF=,*i,114;S5*,*H,*r;S5-,*5,*2;or*5,*vi;S41;FI
   ;SW#2;IF>,*i,0;or#1,#2;S43;FI
   ;IF<,*4,0;S5+,.5*r,.5*R;S5*,*5,*H;S5-,*5,.5*2;or*5,*vi;FI
   ;fr;in*o,*d;in1,1;CX
   ;IF<,*4,2;VS*3;FI;S5*S;S4*S;S3*S;S2*S}
\frCX{SW#1;IF>,*i,0;sr#1,#2,#3,#4;FI;fr;in*o,*d;in1,1;CX}
\HL{TS*1;TS*2;TS*3;TS*4;TS*X;TS*Y;S1v,#1;S2t,.5*1
       ;S1-,*1,*2;SW#2;IF>,*i,0;S3h,#2;EL
       ;S3*,*l,*H;FI;SW#3;IF>,*i,0;S4h,#3;EL
       ;S4*,*r,*H;FI;S4-,*4,*3;S4/,*4,*H;SCx,*4;SCy,1
       ;GPHorizHL;VS*1;CB*3,*vi;VS*2
       ;SCy,*S;SCx,*S,S4*S;S3*S;S2*S;S1*S}

Deleted PrintReport commands as macros
\VT{VL;HM-1;VL}
\TL{TS*9;S9v,#1;SB*9p;S9-,*9,2*d;S9/,*9,2;S9t,*9;VS*9
   ;SL*d,#2,#3;SL*d,#2,#3
   ;S8v,#1;S9-,*8,*9;S9-,*9,2*d;VS*9;S8*S;S9*S}
\DL{TS*9;TS*8;S9v,#1;SB*9p;S9-,*9,3*d;S9/,*9,2;S9t,*9;VS*9
   ;SL*d,#2,#3;VS*d;SL*d,#2,#3
   ;S8v,#1;S9-,*8,*9;S9-,*9,3*d;VS*9;S8*S;S9*S}
\CM{NO}
\GC{DBYou must now use the ArtToPICT XCMD for cd and bg art}
\GB{DBYou must now use the ArtToPICT XCMD for cd and bg art}
\GT{DBYou must now use the ArtToPICT XCMD for cd and bg art}